0 G$="HARD":A1=49152:A2=1024:REM BETRIEBSDATEN
1 PRINT"[147][142]STARTADRESSE EINES FILES AENDERN
2 [153]"PROGRAMMIERT VON N.HEUSLER, 23.8.88
3 PRINT"(C) 64'ER, MARKT & TECHNIK
4 [143] * BENUTZUNG AUF EIGENE GEFAHR *
5 [159]1,8,15,"U9
6 PRINT#1,"M-R"CHR$(183)CHR$(229)CHR$(17)
7 FORI=1TO17:GET#1,A$:N$=N$+A$:NEXT
8 IFN$<>"[195]BM DOS V2.6 154[177]"THENPRINT"PROGRAMM LAEUFT NUR AUF VC1541!":GOTO105
10 OPEN2,8,2,G$+",P,R
11 [141]100:[152]1,"M-R"[199](168)[199](0)[199](1):[161]#1,A$:A[178][198](A$[170][199](0))
12 [152]1,"M-R"[199](6[170]2[172]A)[199](0)[199](2)
13 [161]#1,A$:T[178][198](A$[170][199](0))
14 [161]#1,A$:S[178][198](A$[170][199](0))
15 [160]2
16 [159]2,8,2,"#
17 PRINT#1,"U1:2 0"T;S:GOSUB100
18 GET#2,A$,A$
19 GET#2,A$:L=ASC(A$+CHR$(0))
20 GET#2,A$:H=ASC(A$+CHR$(0))
21 A=L+256*H:PRINT"ALTE STARTADRESSE: "A
22 IFA=A2THENPRINT"BITTE NUR EINMAL AENDERN !":GOTO105
23 IFA<>A1THENPRINT"FEHLERHAFTES MSE-LISTING !":GOTO105
24 PRINT"ADRESSE OK. WIRD GEAENDERT.
25 AH[178][181](A2[173]256):AL[178]A2[171]AH[172]256
26 [152]1,"U1:2 0"T;S:[141]100
27 [152]1,"B-P 2 2
28 PRINT#2,CHR$(AL)CHR$(AH);
29 PRINT#1,"U2:2 0"T;S:GOSUB100:PRINT"ALLES OK. FERTIG.":GOTO106
100 F4=F4+1:INPUT#1,F1,F1$,F2,F3
101 IFF1=.THENRETURN
102 PRINT"DISKETTENFEHLER NR."F1
103 PRINT"TEXT: "F1$
104 PRINT"TRACK:"F2" SEKTOR:"F3" PASS:"F4
105 PRINT"PROGRAMM ABGEBROCHEN...
106 [160]2:[160]1